Mathc initiation/a548

Un livre de Wikilivres.


Sommaire


Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  = .6;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
       return( (t) );
}
char  Feq[] =  "t";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return(     (t-aa) );
}
char  F_mns_aeq[] =  "t-a";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((1./(s*s)));
}
char  feq[] =  "(1/s^2)";
/* --------------------------------- */
double f_s(
double s)
{
 return(        exp(-aa*s)*(1./(s*s)) );
}
char  f_seq[] = "exp(-a s) (1/s^2)";
char  f2seq[] = "exp(-a s)/s^2";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 300.;    char beq[] = "300";
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * (t- a) dt"
     " from t=a  to infinity";
/* --------------------------------- */       
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * (t-.3) dt"
     " from t=.3 to 300"; 
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  =  .6;
double  aa =   A;
/* --------------------------------- */
double F(
double t)
{
        return( pow(t,2) );
}
char  Feq[] =      "t**2";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return(  pow((t-aa),2) );
}
char  F_mns_aeq[] =  "(t-a)**2";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
      return(  2./pow(s,3));
}
char  feq[] =  "(2/s^3)";
/* ---------------------------------- */
double f_s(
double s)
{
         return( exp(-aa*s)* 2./pow(s,3));
}
char  f_seq[] =  "exp(-a s) (2/s^3)";
char  f2seq[] =  "2 exp(-a s)/s^3";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 300.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * (t- a)**2 dt"
     " from t=a   to infinity";
/* --------------------------------- */       
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * (t-.3)**2 dt"
     " from t=.03 to 300";  
/* ---------------------------------- */
/* ---------------------------------- */
fd.h
/* --------------------------------- */
/* save as fd.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  = .6;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
        return( pow(t,3) );
}
char  Feq[] =  "t**3";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return( pow((t-aa),3) );
}
char  F_mns_aeq[] =  "(t-a)**3";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
        return( 6./pow(s,4));
}
char  feq[] =  "6/s^4";
/* ---------------------------------- */
double f_s(
double s)
{
         return( exp(-aa*s) * 6./pow(s,4));
}
char  f_seq[] =  "exp(-a s)  6/s^4";
char  f2seq[] =  "6 exp(-a s)/s^4";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 500.;    
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * (t- a)**3 dt"
     " from t=a  to infinity"; 
/* --------------------------------- */      
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * (t-.3)**3 dt"
     " from t=.3 to 500";  
/* ---------------------------------- */
/* ---------------------------------- */
fe.h
/* --------------------------------- */
/* save as fe.h                      */
/* --------------------------------- */
#define  LOOP  4*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  = .6;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
       return( (pow(t,4)) );
}
char  Feq[] =  "t**4";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return( pow((t-aa),4) );
}
char  F_mns_aeq[] =  "(t-aa)**4";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return(24./pow(s,5));
}
char  feq[] =  "(24/s^5)";
/* ---------------------------------- */
double f_s(
double s)
{
        return( exp(-aa*s) * 24./pow(s,5) );
}
char  f_seq[] =  "exp(-a s) 24/s^5";
char  f2seq[] =  "24 exp(-a s)/s^5";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 500.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * (t- a)**4 dt"
     " from t=a  to infinity";
/* --------------------------------- */       
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * (t-.3)**4 dt"
     " from t=.3 to 500";  
/* ---------------------------------- */
/* ---------------------------------- */
ff.h
/* --------------------------------- */
/* save as ff.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  = .6;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
       return(  sin(t) );
}
char  Feq[] =  "sin(t)";
/* --------------------------------- */
double F_mns_a(
double t)
{
       return(        sin(t-aa) );
}
char  F_mns_aeq[] =  "sin(t-a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
        return((1./(pow(s,2)+1.)));
}
char  feq[] =  "(1/(s^2+1))";
/* ---------------------------------- */
double f_s(
double s)
{
      return(exp(-aa*s) * (1./(pow(s,2)+1.)) );
}
char  f_seq[] =  "exp(-a s) (1/(s^2+1))";
char  f2seq[] =  "exp(-a s)/(s^2+1)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 400.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * sin(t- a) dt"
     " from t=a  to infinity"; 
/* --------------------------------- */      
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * sin(t-.3) dt"
     " from t=.3 to infinity";  
/* ---------------------------------- */
/* ---------------------------------- */
fg.h
/* --------------------------------- */
/* save as fg.h                      */
/* --------------------------------- */
#define  LOOP  4*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s  =  .6;
double  aa =   A;
/* --------------------------------- */
double F(
double t)
{
        return( (cos(t)) );
}
char  Feq[] =   "cos(t)";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return(      cos(t-aa) );
}
char  F_mns_aeq[] = "cos(t-a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
        return( s/(pow(s,2)+1.) );
}
char  feq[] =  "s/(s^2+1)";
/* ---------------------------------- */
double f_s(
double s)
{
      return(  exp(-aa*s) * s/(pow(s,2)+1.)   );
}
char  f_seq[] =  "exp(-a s) s/(s^2+1)";
char  f2seq[] =  "exp(-a s) s/(s^2+1)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 500.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * cos(t- a) dt"
     " from t=a  to infinity";
/* --------------------------------- */     
char Mathematica_eq_2[] =  
     "integrate exp(-.6*t) * cos(t-.3) dt"
     " from t=.3 to 500";  
/* ---------------------------------- */
/* ---------------------------------- */
fh.h
/* --------------------------------- */
/* save as fh.h                      */
/* --------------------------------- */
#define  LOOP  4*300
/* --------------------------------- */
#define     A     .5
/* --------------------------------- */
double  s =  3.;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
        return( (sinh(t)) );
}
char  Feq[] =  "sinh(t)";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return(       sinh(t-aa) );
}
char  F_mns_aeq[] =  "sinh(t-a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((1/(s*s-1.)));
}
char  feq[] =  "1/(s^2-1)";
/* ---------------------------------- */
double f_s(
double s)
{
      return(  exp(-aa*s) * (1/(pow(s,2)-1.)) );
}
char  f_seq[] =  "exp(-a s) 1/(s^2-1)";
char  f2seq[] =  "exp(-a s)/(s^2-1)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 500.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * sinh(t- a) dt"
     " from t=a  to infinity";
/* --------------------------------- */     
char Mathematica_eq_2[] =  
     "integrate exp(-3.*t) * sinh(t-.5) dt"
     " from t=.5 to 500";  
/* ---------------------------------- */
/* ---------------------------------- */
fi.h
 
/* --------------------------------- */
/* save as fi.h                      */
/* --------------------------------- */
#define  LOOP  4*300
/* --------------------------------- */
#define     A     .5
/* --------------------------------- */
double  s =  2.;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
       return( (cosh(t)) );
}
char  Feq[] =  "cosh(t)";
/* --------------------------------- */
double F_mns_a(
double t)
{
       return(        cosh(t-aa) );
}
char  F_mns_aeq[] =  "cosh(t-a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((s/(s*s-1.)));
}
char  feq[] =  "(s/(s^2-1))";
/* ---------------------------------- */
double f_s(
double s)
{
      return(   exp(-aa*s) * (s)/(pow(s,2)-1.)  );
}
char  f_seq[] =  "exp(-a s) s/(s^2-1)";
char  f2seq[] =  "exp(-a s) s/(s^2-1)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 500.;
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * cosh(t- a) dt"
     " from t=a  to infinity";
/* --------------------------------- */     
char Mathematica_eq_2[] =  
     "integrate exp(-2.*t) * cosh(t-.5) dt"
     " from t=.5 to 500";  
/* ---------------------------------- */
/* ---------------------------------- */
fj.h
/* --------------------------------- */
/* save as fj.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
#define     A     .3
/* --------------------------------- */
double  s =  3.;
double  aa =  A;
/* --------------------------------- */
double F(
double t)
{
        return( (exp(t)) );
}
char  Feq[] =  "exp(t)";
/* --------------------------------- */
double F_mns_a(
double t)
{
        return(       exp(t-aa) );
}
char  F_mns_aeq[] =  "exp(t-a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((1/(s-1.)));
}
char  feq[] =  "(1/(s-1))";
/* ---------------------------------- */
double f_s(
double s)
{
      return(    exp(-aa*s) * (1/(s-1.))  );
}
char  f_seq[] =  "exp(-a s) 1/(s-1)";
char  f2seq[] =  "exp(-a s)/(s-1)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 200.;    
double a =    A;
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq_1[] =  
     "integrate exp(-s *t) * exp(t- a) dt"
     " from t=a  to infinity";
/* --------------------------------- */
char Mathematica_eq_2[] =  
     "integrate exp(-3.*t) * exp(t-.3) dt"
     " from t=.3 to 200";  
/* ---------------------------------- */
/* ---------------------------------- */